home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / PATLIST.SRC < prev    next >
Text File  |  1990-11-04  |  5KB  |  210 lines
  1. ;\|
  2. ;PATLIST.SRC     Translated from PATLIST.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;PATLIST  04:59:41 PM  11/ 2/90                    |
  4. define(PAGE|N|5|0|)
  5. define(DATE.TIME.FLD|A|46||)
  6. define(TOT.RECS|N|8|0|)
  7. define(CHG.TIME|T|8||)
  8. define(DOC|N|1||)
  9. define(CHG.DATE|D|10||)
  10. define(STDDAYS|A|12||)
  11. define(STDMONTH|A|12||)
  12. define(STDYEAR|A|6||)
  13. define(STDAYH|A|4||)
  14. define(AM.PM|A|2||)
  15. define(TIME.STRG|A|10||)
  16. define(PG.STRG|A|5||)
  17. define(SELECT.FLD.F1|A| 27||)
  18. define(SELECT.FLD.T1|A| 27||)
  19. define(SELECT.FLD.F2|D| 10||)
  20. define(SELECT.FLD.T2|D| 10||)
  21. define(SELECT.FLD.F3|A|  1||)
  22. define(SELECT.FLD.T3|A|  1||)
  23. define(SELECT.FLD.F4|A|  1||)
  24. define(SELECT.FLD.T4|A|  1||)
  25. define(TOT.FIELD6|N|  8|0|)
  26. define(TOT.FIELD11|N|  1|0|)
  27. define(TOT.FIELD15|N|  8|0|)
  28. clrscr
  29. clrlne(1|25)
  30. open(PATIENT||0|EXIT)
  31. trap(J|G|DOB)
  32. trap(q|g|exit)
  33. gosub GET.DATE
  34. mount(SELECT|S||)
  35. enter(SELECT.FLD.F1||||||||)
  36. enter(SELECT.FLD.T1||||||||)
  37. enter(SELECT.FLD.F2||||||||)
  38. enter(SELECT.FLD.T2||||||||)
  39. enter(SELECT.FLD.F3|" MF"|||Y|Y|N|||N)
  40. enter(SELECT.FLD.T3|" FM"|||Y|Y|N|||N)
  41. enter(SELECT.FLD.F4|" YNX"|||Y|Y|N|||N)
  42. enter(SELECT.FLD.T4|" YNX"|||Y|Y|N|||N)
  43. enter(DOC|" 1234"|||N|Y|N|||N)
  44. pchr(P|10)
  45. pchr(P|11)
  46. pchr(P|4)
  47. pchr(P|1)
  48. trap(P|G|TOF)
  49. mount(REPORT|R|A|)
  50. pset(128|66|60)
  51. trap(I|G|FINI)
  52. find(B|PATIENT.NAME   |NO.RECS)
  53. PRT.REC:
  54. if SELECT.FLD.F1 <> ("") then if SELECT.FLD.F1 > (PATIENT.NAME) goto RD.NEXT
  55. if SELECT.FLD.T1 <> ("") then if SELECT.FLD.T1 < (PATIENT.NAME) goto RD.NEXT
  56. if SELECT.FLD.F2 <> (0) then if SELECT.FLD.F2 > (DATE.OF.BIRTH) goto RD.NEXT
  57. if SELECT.FLD.T2 <> (0) then if SELECT.FLD.T2 < (DATE.OF.BIRTH) goto RD.NEXT
  58. if SELECT.FLD.F3 <> ("") then if SELECT.FLD.F3 > (SEX) goto RD.NEXT
  59. if SELECT.FLD.T3 <> ("") then if SELECT.FLD.T3 < (SEX) goto RD.NEXT
  60. if SELECT.FLD.F4 <> ("") then if SELECT.FLD.F4 > (DISPENSING) goto RD.NEXT
  61. if SELECT.FLD.T4 <> ("") then if SELECT.FLD.T4 < (DISPENSING) goto RD.NEXT
  62. if DOC <> (0) then if DOCTOR <> (DOC) goto RD.NEXT
  63. pfmt(6||||)
  64. TOT.RECS = (TOT.RECS + 1)
  65. TOT.FIELD6 = (TOT.FIELD6+RECORD.NUMBER)
  66. TOT.FIELD11 = (TOT.FIELD11+DOCTOR)
  67. TOT.FIELD15 = (TOT.FIELD15+RECORD.NUMBER)
  68. RD.NEXT:
  69. find(N|PATIENT |FINI)
  70. goto PRT.REC
  71. FINI:
  72. pfmt(5||||)
  73. pfmt(8||||)
  74. pblnk(2)
  75. pfmt(7||||)
  76. trap(P|D|)
  77. ptof
  78. run("RECMENU")
  79. TOF:
  80. PAGE = (PAGE + 1)
  81. pfmt(1||||)
  82. pfmt(2||||)
  83. pfmt(3||||)
  84. pblnk(1)
  85. pfmt(4||||)
  86. pfmt(5||||)
  87. ret
  88. GET.DATE:
  89. time(CHG.TIME|G)
  90. date(CHG.DATE|G)
  91. AM.PM = ("AM")
  92. if CHG.TIME > (43199) doO
  93. {
  94. AM.PM = ("PM")
  95. if CHG.TIME > (46799) then CHG.TIME = (CHG.TIME - 43200)
  96. }
  97. TIME.STRG =mid(CHG.TIME|1|8|)
  98. STDDAYS =day(CHG.DATE)
  99. STDMONTH =xmt(CHG.DATE)
  100. STDAYH =mid(CHG.DATE|4|2|)
  101. STDYEAR =mid(CHG.DATE|7|4|)
  102. PG.STRG = (PAGE)
  103. DATE.TIME.FLD = (STDDAYS+STDMONTH+STDAYH+STDYEAR+TIME.STRG+AM.PM)
  104. ret
  105. NO.RECS:
  106. pmsg("There are no records in the PATIENT  file "|1|24|Y|||)
  107. EXIT:
  108. run("RECMENU")
  109. DOB:
  110. run("DOB")
  111. \R REPORT  
  112.                                            PATLIST - Database File Listing for: PATIENT
  113.                                      &
  114.                                                         Page # &
  115. PATIENT.NAME                 ADDRESS1                DATE.OF.BIRTH  SEX  DISPENSING  PAT.REG  NOTES  DOC   VISIT
  116. ---------------------------  ----------------------  -------------  ---  ----------  --------------  ------------
  117. &                            &                       &              &    &           &        &         &
  118. Total number of records printed: &
  119.                                                                                      &
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160. \
  161. DATE.TIME.FLD
  162. PAGE
  163. PATIENT.NAME
  164. ADDRESS1
  165. DATE.OF.BIRTH
  166. SEX
  167. DISPENSING
  168. PAT.REG
  169. NOTES.REC
  170. DOCTOR
  171. TOT.RECS
  172. TOT.FIELD6
  173. \
  174. \STSELECT  
  175.  Selection screen for PATLIST - Database File Listing for: PATIENT
  176. ================================================================================
  177.  PATIENT.NAME
  178.  FROM- &                           ENTER BLANKS HERE FOR FULL LISTING OR EXACT
  179.  THRU- &                           START AND FINISH NAMES.
  180.  
  181.  DATE.OF.BIRTH
  182.  FROM- &          BLANKS FOR FULL LISTING
  183.  THRU- &
  184.  
  185.  SEX
  186.  FROM- & IF ALL MALE ENTER M & M - MUST BE CAPITAL -OTHERWISE F & M (NOT M & F )
  187.  THRU- &
  188.  
  189.  DISPENSING
  190.  FROM- & NYX (CAPITALS) ALL = BLANK
  191.  THRU- &
  192.  
  193.  DOCTOR
  194.        & 1234 OR BLANK IF YOU WANT ALL DOCTORS
  195.  
  196. THIS PROGRAM WILL ALWAYS LIST OUT IN ORDER OF PATIENTS NAME - IF YOU WANT ORDER
  197. IN DATE OF BIRTH PRESS F2.
  198.  
  199. \
  200. SELECT.FLD.F1
  201. SELECT.FLD.T1
  202. SELECT.FLD.F2
  203. SELECT.FLD.T2
  204. SELECT.FLD.F3
  205. SELECT.FLD.T3
  206. SELECT.FLD.F4
  207. SELECT.FLD.T4
  208. DOC
  209. \
  210.